perl loop

join shbcf.ru